******************************************************************
**************"Taxing the Wealthy in Haiti"***********************
*******Authors: Ana I. Lopez Garcia & Sarah Berens****************
******************************************************************

*TABLES
* Table A1. Descriptive Statistics 
* Table A2: Logit regression: Preferred tax proposals, no weights	
* Table A3: Logit regression: Preferred tax proposals, sample weights	
* Table A4: Logit regression: Preferred tax proposals, interactive effects by affluent status, no weights
* Table A5: Logit regression: Preferred tax proposals, interactive effects by affluent status, sample weights
* Table A6: Logit regression: Preferred tax proposals, interactive effects by affluent status, excluding each wave of the conjoint

******************************************************************
* Set working directory

use "haiti_apr_clean.dta", clear	
	
tab age_cat, gen(age_cat)

tab education, gen(education)

tab class_ident, gen(class_ident)

tab income_cat3, gen(income_cat3)  


******************************************************************
* Table A1. Descriptive Statistics 
sum2docx female age age_cat age_cat1 age_cat2 age_cat3 age_cat4 age_cat5 age_cat6 education1 education2 education3 education4 education5 education6 education7 ///
	education8 education9 university class_ident1 class_ident2 class_ident3 class_ident4 class_ident5 ///
	income_cat31 income_cat32 income_cat33 civil_status employed race owned_land migrant residence_long ///
	migrant_house migrant_usa remittances migrant_intent victim unsafe gang using "TableA1.docx", replace stats(N mean sd min median max) ///
	title("Table A1: Descriptive statistics – Respondents' characteristics") 
 
*******************************************************************
* Table A2: Logit regression: Preferred tax proposals, no weights	

use "haiti_conjoint.dta", clear

logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  , cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A2.xls", replace ctitle(pooled) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) ///
	addnote("Source: Haiti RIWI Survey 2023/24") see label title ("Table A2: Logit regression: Conjoint") 

logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.female i.age_cat i.university i.civil_status i.employed ///
	i.race i.remittances, cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A2.xls", append ctitle(+basic controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.female i.age_cat i.university i.civil_status i.employed ///
	i.race i.remittances i.owned_land, cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A2.xls", append ctitle(+property owner) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 
	
logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.female i.age_cat i.university i.civil_status i.employed ///
	i.race i.remittances i.victim i.unsafe i.gang, cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A2.xls", append ctitle(+crime controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.tax_support, cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A2.xls", append ctitle(+tax support) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +)
	
logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.president, cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A2.xls", append ctitle(+presidential removal) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

	
********************************************************************************
** Table A3: Logit regression: Preferred tax proposals, sample weights	

logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  [pweight=weight] , cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A3.xls", replace ctitle(pooled) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) ///
	addnote("Source: Haiti RIWI Survey 2023/24") see label title ("Table A4: Logit regression: Conjoint, sample weights") 

logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.female i.age_cat i.university i.civil_status i.employed ///
	i.race i.remittances [pweight=weight], cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A3.xls", append ctitle(+basic controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.female i.age_cat i.university i.civil_status i.employed ///
	i.race i.remittances i.owned_land [pweight=weight], cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A3.xls", append ctitle(+property owner) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 
	
logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.female i.age_cat i.university i.civil_status i.employed ///
	i.race i.remittances i.victim i.unsafe i.gang [pweight=weight], cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A3.xls", append ctitle(+crime controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 
	
logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.tax_support [pweight=weight], cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A3.xls", append ctitle(+tax support) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 	
	
logit evaluation_ i.admin_ i.collects_ i.recognition_ i.beneficiary_ i.purpose_ i.improvement_  i.president [pweight=weight], cluster(id)
	margins, dydx(*) post 
	outreg2 using "Table_A3.xls", append ctitle(+presidential removal) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

*******************************************************************************
** Table A4: Logit regression: Preferred tax proposals, interactive effects by affluent status, no weights

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university, cluster(id)
	outreg2 using "Table_A4.xls", replace ctitle(pooled) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) ///
	addnote("Source: Haiti RIWI Survey 2023/24") see label title ("Table A5: Logit regression: Conjoint, interactive effects by affluent status") 

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.female i.age_cat i.university i.civil_status i.employed i.race i.remittances, cluster(id)
	outreg2 using "Table_A4.xls", append ctitle(+basic controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.female i.age_cat i.university i.civil_status i.employed i.race i.remittances i.owned_land, cluster(id)
	outreg2 using "Table_A4.xls", append ctitle(+property owner) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 
	
logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.female i.age_cat i.university i.civil_status i.employed i.race i.remittances i.victim i.unsafe i.gang, cluster(id)
	outreg2 using "Table_A4.xls", append ctitle(+crime controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.president, cluster(id)
	outreg2 using "Table_A4.xls", append ctitle(+pres removal) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

	
********************************************************************************
* Table A5: Logit regression: Preferred tax proposals, interactive effects by affluent status, sample weights

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university [pweight=weight], cluster(id)
	outreg2 using "Table_A5.xls", replace ctitle(pooled) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) ///
	addnote("Source: Haiti RIWI Survey 2023/24") see label title ("Table A6: Logit regression: Conjoint, interactive effects by affluent status, sample weights") 

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.female i.age_cat i.university i.civil_status i.employed i.race i.remittances [pweight=weight], cluster(id)
	outreg2 using "Table_A5.xls", append ctitle(+basic controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.female i.age_cat i.university i.civil_status i.employed i.race i.remittances i.owned_land [pweight=weight], cluster(id)
	outreg2 using "Table_A5.xls", append ctitle(+property owner) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 
	
logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.female i.age_cat i.university i.civil_status i.employed i.race i.remittances i.victim i.unsafe i.gang [pweight=weight], cluster(id)
	outreg2 using "Table_A5.xls", append ctitle(+crime controls) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 

logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university i.president [pweight=weight] , cluster(id)
	outreg2 using "Table_A5.xls", append ctitle(+pres removal) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 



********************************************************************************
* Table A6: Logit regression: Preferred tax proposals, interactive effects by affluent status, excluding each wave of the conjoint

* MAIN RESULTS WITHOUT FIRST ROUND OF CONJOINT 
preserve 
drop if card == "a_1"
drop if card == "b_1"
logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university [pweight=weight], cluster(id)
	outreg2 using "Table_A6.xls", replace ctitle(no first round) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) ///
	addnote("Source: Haiti RIWI Survey 2023/24") see label title ("Table A6: Logit regression: Conjoint, excluding each round of conjoint") 
restore 
* MAIN RESULTS WITHOUT SECOND ROUND OF CONJOINT 
preserve 
drop if card == "a_2"
drop if card == "b_2" 
logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university [pweight=weight], cluster(id)
	outreg2 using "Table_A6.xls", append ctitle(no second round) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +) 
restore
* MAIN RESULTS WITHOUT THIRD ROUND OF CONJOINT 
preserve 
drop if card == "a_3"
drop if card == "b_3"
logit evaluation_ i.admin_##i.university i.collects_##i.university i.recognition_##i.university i.beneficiary_##i.university i.purpose_##i.university ///
	i.improvement_##i.university [pweight=weight], cluster(id)
	outreg2 using "Table_A6.xls", append ctitle(no third round) excel dec(3) alpha(0.001, 0.01, 0.05, 0.1) symbol(***, **, *, +)
restore 

